home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / dspsrcdr.arc / DSPSRCDR.PRT < prev    next >
Encoding:
Text File  |  1991-12-04  |  3.9 KB  |  81 lines
  1.      A****************************************************************
  2.      A* (C) - Copyright 1988 by Shaw-Barton, Inc., Coshocton, OH 43812
  3.      A*
  4.      A* TITLE:        DSPSRCDR (PRTF)
  5.      A* AUTHOR:       Joseph L. Bolen
  6.      A* DATE WRITTEN: August 1988
  7.      A*
  8.      A* DESCRIPTION:  Output Specs. for DSPSRCDIR2 (RPG).
  9.      A*
  10.      A****************************************************************
  11.      A*
  12.      A                                      INDARA
  13.      A                                      REF(QAFDMBRL)
  14.      A*
  15.      A          R HEADER                     SKIPB(02)
  16.      A            PGMNAM        10         4
  17.      A                                    16 DATE EDTCDE(Y)
  18.      A                                    25 TIME EDTWRD('  :  :  ')
  19.      A                                    53'Source Member Directory'
  20.      A                                   112'Page -'
  21.      A            PAGE           4  0    119
  22.      A                                       SPACEA(1)
  23.      A                                     5'Library -'
  24.      A            MLLIB     R             15
  25.      A                                    34'Selection:'
  26.      A            FILIB         21        45
  27.      A                                      SPACEA(1)
  28.      A                                    34'Byte'
  29.      A                                    41'- Creation -'
  30.      A                                    55'---- Changed ----'
  31.      A                                      SPACEA(1)
  32.      A                                     1'Member'
  33.      A                                    17'Records'
  34.      A                                    34'Size'
  35.      A                                    45'Date'
  36.      A                                    57'Date'
  37.      A                                    66'Time'
  38.      A                                    75'Type'
  39.      A                                    85'Text Description'
  40.      A                                       SPACEA(1)
  41.      A*
  42.      A          R DETAIL1
  43.      A            MBR       R+   1         1 REFFLD(MLNAME)
  44.      A            MLNRCD    R             13
  45.      A                                      EDTCDE(Z)
  46.      A            MLSIZE    R             29
  47.      A                                      EDTCDE(Z)
  48.      A            CRTDAT         6  0     43
  49.      A                                      EDTCDE(Y)
  50.      A            CHGDAT         6  0     55
  51.      A                                      EDTCDE(Y)
  52.      A            CHGTIM         6  0     64
  53.      A                                      EDTWRD('  :  :  ')
  54.      A            MLSEU     R             75
  55.      A            TEXT          28        85
  56.      A                                       SPACEA(1)
  57.      A*
  58.      A          R TRL1                       SPACEB(1)
  59.      A                                     1' *TOTAL - '
  60.      A            TOTRCD        15  0      8
  61.      A                                      EDTCDE(Z)
  62.      A            TOTBYT        15  0     24
  63.      A                                      EDTCDE(Z)
  64.      A                                      SPACEA(1)
  65.      A                                     1' *TOTAL MEMBERS - '
  66.      A            TOTMBR         9  0     30
  67.      A                                      EDTCDE(3)
  68.      A                                      SPACEA(1)
  69.      A*
  70.      A          R TRL2                       SPACEB(1)
  71.      A                                     1'**TOTAL - '
  72.      A            GTRCD         15  0      8
  73.      A                                      EDTCDE(Z)
  74.      A            GTBYT         15  0     24
  75.      A                                      EDTCDE(Z)
  76.      A                                      SPACEA(1)
  77.      A                                     1'**TOTAL MEMBERS - '
  78.      A            GTMBR          9  0     30
  79.      A                                      EDTCDE(3)
  80.      A                                      SPACEA(1)
  81.